home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 19 / setup.exe / data.z / bits.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-11  |  831 b   |  43 lines
  1. unit Bits;
  2.  
  3. interface
  4.  
  5. const
  6.     BIT0  = $00000001;
  7.     BIT1  = $00000002;
  8.     BIT2  = $00000004;
  9.     BIT3  = $00000008;
  10.     BIT4  = $00000010;
  11.     BIT5  = $00000020;
  12.     BIT6  = $00000040;
  13.     BIT7  = $00000080;
  14.     BIT8  = $00000100;
  15.     BIT9  = $00000200;
  16.     BIT10 = $00000400;
  17.     BIT11 = $00000800;
  18.     BIT12 = $00001000;
  19.     BIT13 = $00002000;
  20.     BIT14 = $00004000;
  21.     BIT15 = $00008000;
  22.     BIT16 = $00010000;
  23.     BIT17 = $00020000;
  24.     BIT18 = $00040000;
  25.     BIT19 = $00080000;
  26.     BIT20 = $00100000;
  27.     BIT21 = $00200000;
  28.     BIT22 = $00400000;
  29.     BIT23 = $00800000;
  30.     BIT24 = $01000000;
  31.     BIT25 = $02000000;
  32.     BIT26 = $04000000;
  33.     BIT27 = $08000000;
  34.     BIT28 = $10000000;
  35.     BIT29 = $20000000;
  36.     BIT30 = $40000000;
  37.     BIT31 = $80000000;
  38.  
  39. implementation
  40.  
  41. end.
  42.  
  43.